unit Testbed_00Main;

//  $URL: http://delphiscriptedtesting.googlecode.com/svn/InterposedVclScripter/Main/Testbed_00Main.pas $
//  $Revision: 1222 $
//  $Date: 2010-05-02 15:23:36 +0000 (Sun, 02 May 2010) $

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Menus, ScriptableVcl;

type
  TSampleScriptedApplication = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    PrintSetup1: TMenuItem;
    Print1: TMenuItem;
    N2: TMenuItem;
    SaveAs1: TMenuItem;
    Save1: TMenuItem;
    Open1: TMenuItem;
    New1: TMenuItem;
    Edit1: TMenuItem;
    Object1: TMenuItem;
    Links1: TMenuItem;
    N3: TMenuItem;
    GoTo1: TMenuItem;
    Replace1: TMenuItem;
    Find1: TMenuItem;
    N4: TMenuItem;
    PasteSpecial1: TMenuItem;
    Paste1: TMenuItem;
    Copy1: TMenuItem;
    Cut1: TMenuItem;
    N5: TMenuItem;
    Repeatcommand1: TMenuItem;
    Undo1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    HowtoUseHelp1: TMenuItem;
    utorial1: TMenuItem;
    SearchforHelpOn1: TMenuItem;
    Keyboard1: TMenuItem;
    Procedures1: TMenuItem;
    Commands1: TMenuItem;
    Index1: TMenuItem;
    Contents1: TMenuItem;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    LabeledEdit1: TLabeledEdit;
    Label1: TLabel;
    procedure New1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SampleScriptedApplication: TSampleScriptedApplication;

implementation

{$R *.dfm}

procedure TSampleScriptedApplication.Button1Click(Sender: TObject);
begin
Panel1.Caption := (Sender as TButton).Caption + ' was pressed';
end;

procedure TSampleScriptedApplication.New1Click(Sender: TObject);
begin
MessageBeep($FFFFFFFF);
end;

end.
